home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / mus / play / DelfMPEG.lha / DelfMPEG / rexx / goto < prev    next >
Text File  |  2002-10-30  |  481b  |  27 lines
  1. /** DelfMPEG ARexx test **/
  2.  
  3. /* usage: rx goto <seconds> */
  4.  
  5. PARSE ARG seconds
  6. ADDRESS DELFMPEG
  7. OPTIONS RESULTS
  8.  
  9. if seconds=='' then do
  10.     say 'missing parameter <seconds>'
  11.     return 20
  12. end
  13.  
  14. GETSTATUS
  15. if ((result==0) | (result>=10)) then do
  16.     say 'not applicable - player is in STOP mode'
  17.     return 5
  18. end
  19.  
  20. GETDURATION
  21. if seconds>result then do
  22.     say 'note: value too high (new pos: ' || seconds || ', duration: ' || result || ')'
  23.     seconds=result
  24. end
  25.  
  26. SETPOSITION seconds
  27.